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] 
} 
| **F 1LE®*1D**NCPLIBRY | 
NN NN  CCCCCCCC PPPPPPPP = LL IIII11 BBBBBBBB RRRRRRRR- YY YY 
N NN LL BBBBBBBB_ = RRRRRRRR_—s YY vY 
N CCCCCCCC ~PPPPPPPP HII 
NN NN CC PP PP LL II 8B BB RR RR YY vY 
NN NN CC PP PP LL I] 8B BB RR RR YY vY 
NNNN NN CC pe PP LL II BB BB RR nm ow 
NNNN NN CC PP PP LL Il BB BB RR RR = YY_=YY 
NN NN NN CC PPPPPPPP LLL I] BBBBBBBB = RRRRRRRR vY 
NN NN NN CC PPPPPPPP =e LL II BBBBBBBB_ —s_ RRRRRRRR vY 
NN  NNNN CC pP LL II BB BB RR RR YY 
NN  NNNN CC PP LL I] BB BB RR RR YY 
NN NN CC PP LL I] a8 BB RR vY 
NN NN CC PP LL II 8B BB RR RR vY 
NN NN CCCCCCCC PP LLLLLLLLLL IIIII]  BBBBBBBB- = RR RR vY 
NN NN CCCCCCCC PP LLLLLLLLLE §=_sSC'L1)0=— ss BBBBBBBB ~=— RR RR vY 
BBBBBBBB 333333 222222 
BB8BBBBBB 33333 222220 
8B BB 33 33 22 22 
8A BB 33 3 22 22 
hah oe oe 
BBBBBBBB 33 22 
BB8BBBBBB 3 22 
6B OBB 5 gs 
8B aH 33 3 32 
BB B88 3 2 
BBBBBBBB 333333 3302222222 
BBBBBBBB 33333 222220200 
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ZTITLE ‘“NCPLIBRY Symbol Definition 
inpetae NCPLIBRY (IDENT = ‘v04-000') = 


' 
Pee R RAHA AAA A REAR AAT EEE AAAAEAEAAEAAAAAEAA KEKE REee AeA ee eee e eee Tee ees 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


‘* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE YSED AND C ! 4 
Y 
Y 


OPIE 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 
'@ = INCL TICE. SOFTWARE 0 OTHER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 
t® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREB 
tt TRANSFERRED. 

:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
° compOkat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
® ae 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
® 
® 
® 
® 


See e eRe RAE AREER EAA AAEAAAAEAAAR EAA AREER eee eee eee eee 
! 


‘ee 


; FACILITY: NCP Network Control Program (NCP) 
i ABSTRACT: 


i ENVIRONMENT: VAX/VMS Operating System 
i AUTHOR: Darrell Duffy , CREATION DATE: 28-August-1979 
i MODIFIED BY: 


' 

' 

' 

! 

' 

! 

' 

' 

' 

' 

: v03-031 popetts Paul R. DeStefano 31-Jul-1984 
Allow node address and executive node address of 0. 
1 
' 
' 
! 
‘ 
' 
‘ 
' 
i 
1 


v03-030 2 pe Paul R. DeStefano 18-Jul-1984 


Llow underscores ro ") to be included in group, 
network, and destination names. 


v03-029 PRDO0SO Paul R. DeStefano 05-Feb-1984 
Added state expression to parse OBJECT parameter as 


a number. 
Changed ACTSGL_NODADR_@ to more general name ACTSGL_ADR_Q. 


v03-028 RPGO028 Bob Grosso 10-Jun-1983 
Add service device UNA, 


| 

NCP Library of common definitions | 
| 

| 

| 

| 

| 

| 

| 

| 


rn 
eee ee ee ee ee . —- e 


a a 
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v03-027 RPGO027 Bob Grosso 22-Mar-1983 
Turn off BLANKS after termination of state expression 
macro to parse NI addresses. 


V03-026 RPGO026 Bob Grosso 16-Mar-1983 
Update NCP version number to IV. 
Complete state expression macro to parse NI addresses. 


v03-025 RPGO02S Bob Grosso 10-Mar-1983 | | 


Add state expression macro to parse NI addresses. 
v03-024 RPGO024 Bob Gro 25-Feb-1983 


Remove syntax checking. ter NODE id and correct 
arene of circuit names. 

tnis pogoes cannot be backed off without taking 
RPGOO2 it. 


wit | 
v03-023 prences Bob Grosso 18-Feb-1983 | 
Remove areas checking for ob nag and _circuit-id. 
Chan H High range for node oer f rom 255 to 1023. 
Add high and low for LINE 8 
| 
| 
| 


BFS. 
Add high and low for NODE FBS and SBS. 


. 
* 
t 
. 
' 
. 
4 
. 
' 
. 
! 
. 
' 
* 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
° 
' 
. 
' 
. 
' 
' 
. 
' 
M 
' 
. 
t 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 


v03-022 RPGO022 Bob Grosso 20-0c t-1982 
ete case and ‘_* in object names. Allow 12 character 

objec 
Have SE ONODE “ADR flag Area present in node address. 

v03-021 RPGOO021 os Grosso 23-Sep-1982 
Parse for node ar 
Range for Module Consote RTR 

v03-020 RPGO020 Bob Gross 15-Sep-1982 
Increase tracepoint name *Tength to 30 from 16. 

v03-019 RPGO019 Bob Grosso 03-Sep-1982 


Add range for LIN AMP 
Change range for MTR BSZ. 
Add SEM_HEX_NUM and LEN_HEX_NUM to parse hex numbers. 


v03-018 TMHOO18 Tim Halvorsen 16-Aug-1982 
Change tracepoint name parsing to arcepe a string of 
any size, are periods as legal characters. 


v03-017 RPGOO017 Srggee 03-Aug-82 
Add ge QUERY. STA a. X25-Protocol MCI. 


Change RY STATES. S to allow different ALL prompt 
strings to support Sub-databases. 
v03-016 ~—— Bob Grosso 23-Jul-82 
SER TRCPNT ee nec® with subexpression for tracepoint names, 
TRCPNT_ 
v015 RPGOO15 Bob Gro 14-Jul-82 


ee re ne ee ee ee ee ee eee te ee ee ee ee ee ee 


Add NI support in Set Node by adding range oe Pens for 


pose 


H 1 
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AMC, AMH, BRT, MAR, MBE, MBR. 


v0O14 RPGO014 Bob Grosso 15-Jun-82 
Add MODULE parameter table. 
Add macro QUERY_STATES_S patterned after QUERY_STATES 
to permit alternate prompting within entities without 
having multiply defined states. 
Add Subexpression and constant for channels Lists. 


v013 TMHOO13 Tim Halvorsen 05-Apr-1982 | 
Add ACTSTESTLONG action routine to ACT_DFN macro. 

Allow numeric characters in Line/circutt mnemonic. 

Add circuit MRT and RPR ranges. 

Allow any characters following initial dash after 

Line/circuit mnemonic (such as X25-CHICAGO). 


v012 TMHOO12 Tim Halvorsen 08-Jan-1982 
Remove TMHOOOS, thus restoring RETRANSMIT TIMER 
to a Line parameter, which is what NM V3.0 finally 
came up with. 


v011 TMHOO11 Tim Halvorsen 31-Dec-1981 
Add DMF as a MOP service device. 
v010 TMHOO010 Tim Halvorsen 25-Nov-1981 


Allow embedded spaces in filespecs as long as they 
epeeer in double quotas (access control s diag 

This allows access control strings to be specified 

in the filespec after the TO clause in the SHOW command. 


v009 TMHOOO9 Tim Halvorsen 22-0ct-1981 
Fix HEX_PSW sub-expression so that blank which terminates 
hex password string does not get included in string. 


v008 LMKO001 Len Kawell 19-Sep-1981 
Change NICE version to 3.0. 

v007 TMHO007 Tim Halvorsen 28-Aug-1981 
Add macro to parse Link ID 

v006 TMHOO006 Tim Halvorsen 15-Aug-1981 
Add DMP, DMV and DPV service devices. 
Add EXECUTOR PIPELINE QUOTA range. 


voos TMHOOOS Tim Halvorsen 05-Aug-1981 
Change RETRANSMIT TIMER to a circuit parameter 
from a Line parameter. 


v004 TMHO004 Tim Halvorsen 07-Jut-1981 
Rename maximum blocks to maximum transmits 
Allow dashs in circuit names. 


v003 TMHOOOS Tim Halvorsen 11-Jun-1981 
Add ranges for new V2.2 circuit parameters. 
Remove obsolete Line polling gecepeters. 
Change NCP version number to 2.2.0 
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vO2-002 LMK0001 Len Kawell 18-Dec-1980 
Fix file-id parsing. 


mane eeersencneisermnenea-tame/areumeemmennet si: ire meashiatenieinaseaene antmeaniaeatte leet ace ener camera 
1 
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ZSBTTL ‘Definitions’ 


TABLE OF CONTENTS: 
' MACROS: 
: Program Identification String 


CRO 
PRG_ID_STR = 
XSTRING ("v3.00 ") 


: Build a cr Lf pair in a string 


LF = 
ZCHAR (13, 10) 
x 
SFAB_DEV - a macro which defines a single FABSL_DEV bit. 
SFAB_DEV( bit_name ) 


where 
Dit _name"’ is a 3-character device bit name 


RSF AB DEV( BIT_NAME ) 
FABSDEV( FABSL _DEV, ZNAME ("DEVSV_*,BIT_NAME) ) %, 


FABSDEV( FAB BYTE. | FAB B BITE FAB sees, FAB_S SIGN, DEV_DISP, 
FAB_BYTE, DEV ‘Bit DEV. gi te° DEV. SIGN % 
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Create a descriptor for a constant string 


ACRO 
ASCID () = 
CUPL IT BYTE ! Use byte alignment to save space 


! Parts ra be longwords 
gl 4 A ZR ay ING)) 


LONG ( 
ZCHARCOUNT( 2ST 
N MAINING)) 


PLATS. 5S ZSTRI 


) 
% 


Create pointer to counted string 


¢ () = 
:. UPL IT BYTE (ZASCIC ZSTRING (ZREMAINING) ) ) 


Seruseure declarations used for system defined structures to 
save typi ng. These structures are byte sized. 
hanks to A. Goldstein) 


STRUCTURE 
ene CO, P, S, E; NJ = 


(BBLOCK+0)<P,S,E>, 
wean «> C1, 0, P, S, E; N, BS) = 
( (BBLOCKVECTOR+1 *BS)+0)<P,S,E> 


; Concatenate text to the control string 


ADDSTR (TXT) = 
NCPSADDSTR (ASCIC (TXT), NCP$GQ_CTRDSC) 


‘ Add an entry to the fao list 


NCPLIBRY.B32;1 


MACRO 
ADDFAO (ITEM) = 


NCPSADDFAO (ITEM) 
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aaa 


NC 


: 
ZSBTTL ‘Macros to Build State Tables’ 


‘ Macros to help build state tables 


For the following macros: 


CLS Code for the sub-command 
NAM Parameter name 


! 
' ALL state names have the form ST_CLS.... 

: There are two types of states, prompt and process. Agee states 
: sequence the prompts for parameters. Process states allow any 
: parameter in any order. 


' 
: Build a sequence of prompt states 

! A prompt is printed and then it is parsed. No answer is required 

: and if none is given the next prompt is issued. If the response is 
: ** DONE’’ then the remainder of the prompts are skipped and the 

: function is performed. 


MACRO 
PROMPT_STATES (CLS) CNAM] = 


SSTATE (XZNAME ("ST_", CLS, *_PMT_', NAM), 
(TPAS_LAMBDA, , 
ACTSPRMPT,’, , ZNAME ("PMT$G_', CLS, '_', NAM) ) 


SSTATE (,. 
(TPAS_ SYMBOL 
( (XNAME ('ST 
(TPA$_EOS), 
(TPAS_LAMBDA, ZNAME ('ST_', CLS, *_PMT_', NAM), 
ACTSSIGNAL, , , NCPS$_INVVAL) 


ZNAME ("ST_*, CLS, ‘ DOIT'), ACTSPMTDONEQ ), 
-'. CLS, '_*%, NAM) ) J, 


M 
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ee ee ee 


MACRO 


SSTATE 


SSTATE 


Build a pair of states to accomplish command prompting 


The idea is to cause Synod ently if the state is entered 

with TPAS_EOS true. If prompting is true, then the state should 
loop until either a transition is satisfied or the command is 
canceled. This is done by using ACTSPMT_ON and OFF to remember 
the state of prompting and ACTSPMT_Q to act on that state to 
either fail (not prompting) or succeed and issue and error message 
(prompting). 


COMMAND PROMPT (CLS, NAM, STATUS) = 


(ZNAME ('ST_", CLS, '_', NAM), 
(TPAS_EOS, > ACTSPMT_ONS, 
(TPAS-LAMBDA, , ACTSPMT_OFF), 


(ZNAME (*ST_", CLS, '_'", NAM, '_1°), 
ZREMAINING 


(TPAS_EOS, ZNAME ('ST_', CLS, '_', NAM 
ACTSPRMPT, , 7 SNAME ('PMTSG_' 
(TPAS_LAMBDA, ZNAME ('ST_", CLS, '_'; 
ACTSPMT_Q, , , STATUS) 


c 


MACRO 


SSTATE 


SSTATE 


MACRO 


SSTATE 


SSTATE 
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Build sequence of Query states 
ayery states are states which save a parameter 
e@ answer to a prompt is YES. No arereter is 
saved for NO or CR. If the response DONE’ then 
the remainder of the queries are skipped and the function 
is performed. 


QUERY_STATES (CLS) CNAM] = 


(ZNAME ("ST_*, CLS, '_PMT_", NAM), 
(TPAS_LAMBDA, , Act SPRMPT 
C pATEG. ", CLS, '_', NAM) ) 


); 
( 
(fP assy SYMBOL  BNAME ("ST_", CLS, "_DOIT'), ACTSPMTDONEQ ), 
RUT BIDENTICAL (NAM, ALL) ' ALL IS SPECIAL 
XTHEN MNAME ("ST_', CLS, ‘_DOIT") i IT MUST BE LAST 
ACTSSAVPRM. 
£NAME ('PBKSG_', CLS, '_", NAM) ), 
( (SE_QRY_NO) ), 
(TPA$EOS), 
(TPAS~LAMBDA, INANE ("ST_", CLS, "_PMT_", NAM), 
; SIGNAL, , , “NCPS_ IRVVAL) 
%; 


Slightly — Ss QUERY_STATES macro to permit Going 
same prom et and PBK more than once with multiply defining 
parse table states. 


QUERY_STATES_S (CLS) CNAM, SNAM) = 


CRNAME (°ST,'. CLS. * PMT_*. SNAM), 
(TPAS_LAMBDA, , ACT SPRMP 
(* par $6. ", CLS, '_", SNAM) ) 


) 
( 
(TPAS_ frre 3 ZNAME ('ST_", CLS, ‘_DOIT'), ACTSPMTDONEQ ), 


SE~a 
x1F ZIDENTICAL (NAM, ALL) ' ALL IS SPECIAL 
XTHEN NAME ('ST_', cls, *_poIT') i IT MUST BE LAST 
ACTSSAVPRM 


£NAME ('PBKSG_", CLS, '_", NAM) ), 
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SE ORY NO) ), 

AS“EOSS 

AS“LAMBDA, TNAME ("ST_", CLS, "_PMT_', SNAM), 
ACTSSIGNAL, , , NCPS_INVVAL) 


( 

(T 
(T 
) 
& 


vuvu- 


Build transitions in a dispatch state 


KEY Keyword for dispatch from state 


CRO 
DISPATCH_STATES (CLS) CNAM, KEY) = 
(ZSTRING (KEY), SNAME ('ST_*, CLS, '_PRC_', NAM) ) 
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SSTATE 


SSTATE 


TYP 


MACRO 


SUB_ 


SSTATE 


SSTATE 


Build a sequence of process states 


NOISE Noise keyword 


CRO 
PROCESS_STATES (CLS) CNAM, NOISE) = 


CENAME ("ST_", CLS, "_PRC_", NAM), 
XIF NOT NUCL’ (NOISE)~ 


CESTRING > «fat 
(TPAS_L 


tf 1 
C CNAME ("ST") CLS NAM) ), 
ZNaMe <’ST_*, CLS, ‘9 pre’) ) 


_— 


Build a set of subexpressions to decode parameters 
Type of transition desired 


EXPRESSIONS (CLS) CNAM, TYP) = 
(ZNAME ('ST_*, CLS, '_', NAM), 
(TYP, 


RIF ZIDENTICAL (TYP, TPAS_DECIMAL) 
ZTHE 


» ACTSNUM_RNG. , 
NUM_ RANGE 


ENAME (*LOW ' 1 LS, ".', NAM), 
ENARE (*HIGA_’, CLS, 7", NAM) 


) 
(TPAS_LAMBDA, 
XFI 


TPAS EXIT, ACTSSAVPRM, 
ZNAME’ (*PBKSG_', CLS,°"_', NAM) ) 


NC 


DE 


DE 


DE 


DE 
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Build transitions in a keyword state 


' 
' 
| Each transition saves a parameter based on the keyword 
; and exits the subexpression. 


MACRO 
KEYWORD_STATE (CLS) CNAM, KEY] = 


(RSTRING, (Key) TPAS EXIT acresqren, na 
— ('pBKSG_', €LS NAM) *) 


NC 


DE 


DE 


— | 


F 
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ZSBTITL ‘Macro to Build Prompt Strings’ 
: Build prompt strings 


MACRO 
PROMPT _STRINGS (CLS) CNAM, STR] = 


/ENAME ("PMT$G_", CLS, '_", NAM) = 
. ASCID-(ASTRING TSfR) ) 
| 


SSBITL 
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"Macros to Build Parameter Control Blocks’ 
Build parameter blocks 


There are four structures associated with building messages: 
$0B Set/Define Block 


This block is a parameter to the verb routines. It serves 
to point to other structures and to declare the erre of the 
entity so that message headers can be properly built. 


PDB Parameter Data Block 


This is a data area which holds the actual! parameter data. 
THe block is a status byte followed by the data as it 
appears in the message. The action routine ACTSSAVPRM 
stores the dats in this block in the correct format. 


PBK Parameter Block 


This block is a parameter to ACTSSAVPRM and directs the 
storage of the parameter in the PDB. It contains the type 
of the parameter, the PDB address and an optional parameter 
for the type code. 


PCL Parameter Control List 


This block is a List of items which control the building of 
messages. Each entry is a pereneser type code, the 
parameter ID code and the PDB address. Using this block the 
routines which build messages are able to add parameter 
values or codes to the end of messages in the proper format. 


NC 


H 
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Build the SDB 


CLS Class of the command 

ENT Entity type code. If negative, then system-specific entity 
PDB Parameter data block suffix 

PCL PCL suffix 


MACRO 
BUILD_SDB (CLS, ENT, PDB, PCL) = 


Declare symbols which are not yet declared 


ZIF NOT ZDECLARED (ZNAME ("PDBS$G_', PDB) ) 
ZTHEN 


EXTERNAL 
ZNAME ('PDBS$G_', PDB) 


<F I 


Build the PLIT for the SDB 


BIND 

ZNAME (‘SDB$G_", CLS) = 

UPLIT BYTE ! Use byte alignment to 
( ! Save space 
BYTE (ENT) 


LONG (ZNAME ('PDB$G_', PDB) ), 
LONG (ZNAME (*PCLSG_', PCL) ) 
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Build a PCL 


CLS Class of command 
remaining repeated 


NAM ame of +g tah eatin 
TYP sorts for type c 

ID Suftix for peraneter 1 ID code 
PDB Suffix for PDB of 


MACRO 
BUILD_PCL (CLS) = 


Declare the PDB's 
BUILD_PCL_PDB (CLS, ZREMAINING) 
Build the PCL PLIT 


BIND 

ZNAME ("PCL$G_",CLS) = 

writ BYTE ! Use byte alignment to save space 
PUILD_PCL_LST (CLS, ZREMAINING) 


k, 
Build the items in the PCL List 


BUILD_PCL_LST (CLS) CNAM, TYP, ID, PDB) = 


ove (ZNAME (*PBKSK_", TYP) ), ! Data type code 
Mee ZNULL (ID) ! Network management ID 


! Address of PDB 
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ZELSE ZNAME (*PDBSG.', 
Z1F ZNUCL (PDB) 
ZTHEN CLS, ‘.*, 
ZELSE PDB 
ae 

aFI 

) 


%, 
: Declare the PDB as external 


BUILD_PCL_PDB (CLS) CNAM, 12, 13, PDB) = 
Bit ZNULL (NAM) 
tt co | ZDECLARED 
(ZNAME 


ZTHEN 


EXTERNAL 
ZNAME (‘PDBSG 
ZIF ENOL (PDB) 
ZTHEN . NAM 
TELSE P 
RFI 


~~ 


® 
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‘ Build a List of PBK's 


CLS Class of command 
remaining are repeated 


N. Suffix name of parameter 

TYP Suffix of type code of parameter 
PRM Value of type code parameter 

PDB Suffix for PDB to save parameter 


ere te te er ee re 


CRO 
BUILD_PBK (CLS) CNAM, TYP, PRM, PDB) = 
ZIF NOT ZDECLARED ! Declare the pdb external 


(ZNAME ('PDBS$G_* 
XIF {NULL (PDB) 
ZTHEN CLS, ‘_*, NAM 
ZELSE PDB 
<FI 
) 
) 
ZTHEN 
EXTERNA 
INANE (*PDBSG_° 
xT ne (PDB) 
» Shee _'« NAM 
rere Bb DB 
<FI 
) 
FI 
GLOBAL BIND ! Build PBK as a plit 
ZNAME ('PBKSG_", CLS, ‘_*, NAM) = 
wut BYTE ! Use byte alignment to save space 
Byte pare ss *, TYP) ), : Data type code 
LONG (ZNAME (*PDBS$G~"; ! PDB addres 
ZIF ZNULL (PDB) 
ZTHEN CLS, ‘_*, 
ZELSE PDB 
TFI 


. 
LONG ( ! Parameter for type code routine 
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ZNULL (PRM) 
NO 
SE PRM 


mM 
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i Build a PDB 


Class of command 
NAM Suffix for parameter 
$12 Size of parameter data in bytes 


MACRO 
BUILD_PDB (CLS) CNAM, SIZ) = 


ZNAME (*PDBSG_", CLS, '_*, NAM) : ' Name in classic form 
BLOCK”C(SIZ) + T,°1] i Size + 1 for status byte 
ALIGN (0) ! Byte align to save space 


q; 
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Build a numeric range parameter 
MACRO 
NUM_RANGE (LOW, HIGH) = 
4 weit BYTE ( LONG ( (LOW), (HIGH) ) ) ) ! Byte align to save space 


‘ Build a next state parameter 


NEXT_STATE (COD) = 
(UPLTT ore ! Byte align to save space 


LONG ! Each is an address in a longword 


( 
XNAME ('NCP$G_STTBL_',COD) 
TNAME ("NCPSG-KYTBL_', CODS 
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ZSBTTL ‘Equated Symbols’ 
! 


! EQUATED SYMBOLS: 

LITERAL : 
FALSE 
SUCCESS 
FAILURE 
NCPSC_VRS 
NCP$C~ECO 
NCP$C—~UECO 


NCPSC_MBXS1Z 
NCP$C_RSPSIZ 


oof Oo-oO-— 


> 
oo 


LOW” NODE- ADR 
HIGA_NODE_ADR 
LEN &_NAM 


LOW"UIC_PART 
HIGA_UIT PART 
EN_BTE_ 


L - 
LEN_ENT_NAM 


LEN-DEST_NAME 
LEN~TRCPRT_NAME 
MAX~RNGLST~PAIRS 


a 

mm 

2 

P 

oO 

o 

> 

o 

Oo 
nHHHnnnnnhnnnhnnnnnhnnnnnnnnnnnnnnnnan 


7. & © 


~m 
Ww 
. 


oe 
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' Version of NCP for messages 
! Eco for messages 
! User eco for messages 


! Size of the mailbox buffer for network io 
! Size of the response buffer for network io 


! Length of an object name 
! Length of an ID string 

' Length of a nsp password 
' Length of a file 

' Length of a file name 

! Length of a file type 

' Low Limit of node address 
! High Limit 

' Length of node name 

: Length of NI Address 

' Low Limit of a node area 


! Length of a circuit id 

' Length of a total line id 

! Length of Hex number (128 bits) 
' Length of Hex password (64 bits) 
! Length of the access account 

' Length of the access password 


h of the access user id 


: gt 

' Low Limit of event class 

! High Limit 

! Low Limit of event type 

! High Limit 

! Length in bytes of a priv mask 
! Length of a node software id 

' Low Limit of uic number 


5 network name 
2 destination name 
tracepoint name 


i Maximum numbers of pairs in a range List 
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; Macro to help define ranges 


DEFRNG (CLS) CNAM, LO, HI] = 


LITERAL 
XNAME ('HIGH_', CLS, '_' = 
XNAME (LOW, CLS, 'T': NAM) = 


it; 
| 
DEFRNG (NOD, ! Executor node parameters 
ADR, 0, 1023 ! Node address 
AMC, 1. 65535, ! Area maximum cost 
AMH, 1, 255 ! Area maximum hops 
BRT, 1, 65535, ! Broadcast routing timer 
BSZ, 1, 65535, ! Buffer size 
Orta Ne $22° ' Delay factor 
DWT, 1, 255 ! Delay weight 
FBS. 1, 65585, i Forwarding buffer size 
IAT, 1, 65535, ! Inactivity timer 
INT, 1, 65535, ! Incoming timer 
MAD, 1, 65535, ' Max address 
MAR, 1, 255 ' Max area 
MBE, 1, 65585, ' Max broadcast nonrouters 
MBR, 1, 65535, ! Max broadcast routers 
MBF, 0, 65535, ! Max buffers 
mcO, 1, 1023, ' Max cos 
MHP, 1, 31 ' Max hops 
MLN, 1, 65535, i Max Lines 
MLK, 1, 65535, ! Max Links 
MVS, 1, 255 !' Max visits 
OTM. 1. 65535, ! Outgoing timer 
RFC, 1, 65535, ' Retransmit factor 
RT, 1, 65535, ! Routing timer 
SBS, 1, 65535 ' Segment buffer size 
P1Q, 0, 655355 ! Pipeline quota 
DEFRNG <CIR, ! Circuit parameters | 
CT, 1, 65535, ' Counter timer 
008, I. $2 ! Cost | 
mRT, 0, 255, : Maximum routers on NI 
RPR, 0, 4 ' Router priority on NI 
HET, 1, 6 535. ' Hello timer 
Rive te $23 ' Listen timer 
MRC, O, 22 ! Maximum recalls 
RCT, 1, 65535, i Recall timer 
CHN, 0, 2078 ' Channel number | 
MBL. 1. 65535, ! Maximum block 
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POPP PININININININIA Oror 


. 
COoOoooo°o°o°0-o-"0o— 


— 
. 
0 NO 2 2 1 Oo 


ees ses Oe eeseee ee ses 


DEFRNG (LOO, 
CNT, 1, 
LEN, 1, 

DEFRNG (LNK, 
ADR, 1, 

DEFRNG (NOD, 
CTH, 1, 
ocT, 0, 


DEFRNG (DUM, 


vw 


ss 


POPPA 


PUPP SPVSVSISISISISISIIIIIS 


“ese ese ees 8 8 & ll « 


PAIAADXA  VNINAACOOUA 
MOANA MIMI 


65535 


) 


FREEFF*) 
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' Maximum window 


Tributary address 
Babble timer 
Transmit timer 
Maximum transmits 
Active base 

Active increment 
Inactive base 
Inactive increment 
Inactive threshold 
Dying base 

Dying increment 
Dying threshold 
Dead threshold 


Line parameters 


Counter timer 
Block size 

Cost of the Line 
Normal timer 
Service timer 
Retransmit timer 
Holdback timer 
Maximum block 
Maximum retransmits 
Maximum window 
Tributary address 
Scheduling timer 
Dead timer 

Delay timer 
Stream timer 
Number of buffers 
Buffer size 


Loop parameters 
Count of messages 
Length of message in bytes 


Link parameter 
Link address 


Node parameters 


Counter timer 
Dump count 


25 


z 
7 


ee Nd Bed tel ted 


m/ 
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COU, 0, ZX*FFFFFFFF') ! Dump count 


| 
DEFRNG (OBJ, ! Object parameters | 
NUM, 0, 255) ! Object number | 
DEFRNG (MCS, ! Module Console | 
RTR, 0, 65535) ! Object number 
DEFRNG (MPR, ! X25=-PROTOCOL | 
CT™, 1, $5333. ! Counter timer 
DBL, 1, 65535, ' Default block 
Dwi, 1, 127 ' Default window 
MBL, 16, 4096, i Maximum block 
Mul, 1, 1g ' Maximum window 
MCL, 1, Se ' Maximum clears 
MRS, 1, 255, ! Maximum resets 
MST, 1, 255, ! Maximum restarts 
CAT, 1, 255, ' Call timer 
CLT, 1, 255, ' Clear timer 
RST, 1, 255, ! Reset timer 
Bite te aoe ' Restart timer 
GNM, 0, 9999 ! Closed user group number 
whe ts 65535 ! Maximum circuits - VMS specific 
| 
DEFRNG (MSE, ' X25-SERVER 
C™, 1, 65535, ' Counter timer 
MCI, 1, 65535, ! Maximum circuits 
PRI, 0, 255) ! Priority 
DEFRNG (MTR, ' X25-TRACE 
| 
BSZ, 1, £096 ' Buffer size 
CPL, 1, 65535, i Capture Limit | 
cPS, 1, 65535, ' Capture size 
MBK, 1, 65535, ! Maximum blocks 
MBF, 1, 65535, ' Maximum buffers 
MVR, 1, 63) ! Maximum versions | 
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i EXTERNAL REFERENCES: 


MACRO 
ACT_DFN = 


EXTERNAL ROUTINE 
ACTSINV COMMAND, 
ACTSSAVPRM, 


ACTSPRMPT, 
ACTSNUM_RNG 
ACTSNUM~RNGSAV, 
ACT AV 


A 
ACTSTESTLONG, 
ACTSCOPY VALUE, 
ACTSPMTDONEO 


EXTERNAL 
PBK$G_ZAPACCDSC, 


PBK$G_VRB_ALL 

PBK$G_LOG-TYPCON, 
PBK$G_LOG_TYPFIL, 
PBK$G_LOG-TYPMON, 


ZSBTTL ‘Macro to Define External Symbols’ 


' Parameter blocks for events 


F 
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Define externals for action routines 


Signal invalid command 
Save a parameter 

Save a temporary string 
Blanks are now significant 
Blanks are not significant 


! Clear temporary descriptors 
! Prompt for a parameter 


Validate a number 
Validate and store range List number 


! Store a number from a range List 
! Validate a string seogt” 

! Write a string to SYSSOUTPUT 

! Signal an error condition 


Prompting on 
Chec 


Show and List Verbs 
Clear a longword 

Test a longword 

Copy a longword 

See if prompting done 


Parameter block to zap descriptors 


Block for ALL parameter 
Block for logging types 
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ption byte 


were OPTION : 
: Gnct ion” code 


L-FNC_CODE 


oo 
o 
@ 
oo 
°o 
Cs 
cc 
ete 
-— 
aa 
ed 
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: String descriptors for access parameters 


EXTERNAL 
ACTSGL_ADR_Q, 
ACTSGL_NODAREA, 


ACT$GQ_ACCACC_DSC, 
ACTS$GQ_ACCPSW “DSC, 
ACT$GQ-ACCUSR_DSC, 


ACT$GQ_NODEID_DSC, 
ACTSGL_SAD_BEGIN, 
ACTSGL~ _SAD “END; 

! 

Status return values 


EXTERNAL LITERAL 
NCP$_INVVAL, 
NCPS_ INVKEY 


Flag for address 
Node Area 


Account 
Password 


! User id 


Node id descriptor 


Subaddress ——— value 
Subaddress ending value 


Unrecognised value 
Unrecognised keyword 


ZSBTTL 
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‘Macros to Build Subexpressions' 


The state tables for the NCP Language have been broken into 
smaller modules to reduce ._«pile time of the separate 
modules to reduce development time. The Covelopenent ime 
has been reduced at ine expense of a slight increase in thé 
size of the tables since keywords and subexpression states 
are duplicated in the separate tables. 


These macros define whole state subexpressions to parse 
useful entities. Including these subexpressions as macros in 
the Library avoids hav ng mult pte copies of the source of 
the subexpressions in each of the modules of the states 
tables where they are used. 


States and subexpressions are named in a distinctive way. 
States are named ST_xxx. Subexpressions are named SE_xxx and 
subexpression defining macros are named SEM_xxx. 
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: Subexpression for a File ID 


MACRO SEM_FILE_ID = 


SSTATE (SE FILE I 


! Make blanks significant 
CTPRS _£0S Ot pas FAIL) 8 


“LAMBDA, ~, ACTSBLNK_SIG)); 
' 
i Accept ory string of characters for a filespec. Format is not 
: enforced here. 


(SE re ths i’ 

(TPRS s€_FILE_IDX), 

(TPAS_ Bk SE_FICE_IDX), 

—. oe yf ite 152), ! Handle quoted portion separately 
(TPAS_ANY, SE“FILE’1D1)); 

(SE. ris ~}be 

( iLé 101), ! If ending double quote, rejoin loop 
(TPAg tos’ TOE “FILE 108) 

(TPASTANY, SE~FILE~1D2)5; 

(SE_FILE_IDX, 

(TPAS_LAMBDA, TPAS_EXIT, ACTSBLNK_NSIG)); 

(SE_FILE_IDE, 

(TPAS_LAMBDA, TPAS_FAIL, ACTSBLNK_NSIG)); 

q; !' End of File-id macro 


K 
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: Subexpression for Node-1D 


MACRO SEM_NODE_ID = 


SSTATE 
C ist on OROBES _NAM), TPAS_EXIT), 
: (SE"NODE-ADR), TPAS_EXIT) 
SSTATE (SE_NODE_A 
(SE_NOB MADR, TPAS_EXIT, , TRUE, ACTSGL_ADR_Q) 
SSTATE (SE_NOD_A 
CTPAS CRMBDA, » ACTSCLRLONG, , , ACTSGL_ADR_Q) 
SSTATE (. 
{(SE_NODE AREA_Q), TPAS_EXI ! If an area precedes the adr then check its range and store it 
(TPAS -DECTMAL © TPAS $_EXIT, ACTSNUM 
i NUM_R (COW_NODE_ADR, UMaiGn “NODE _ADR) ) 
SSTATE (SE_NODE_N 
CTPAS_ CARBDA: » ACTSBLNK_SIG) 
SSTATE ( 
(fPAS_ LAMBDA, , ACTSCLRLONG, , , ACTSGL_ADR_Q) 
SSTATE te 
( 44 NODE _NAM1), ACTSSTR_LEN, , . LEN_NODE_NAM), 
CTPAS “LAMBDA,  {TPAS_FAIL, ACTSBLNK_NSIGY 
SSTATE ( 
CTPAS_ LAMBDA, TPA$_EXIT, ACTSBLNK_NSIG) 
SSTATE (SE_NODE_NAM1, 
(TPAS_DIGIT SE_NODE_NAM1), ! Check for Node names with leading digits 
(TP. $"ALPHA), ! If the node name has an alpha then aren to ST_NODE_NAM2 
7? ! Otherwise it was only digits and therefore an ADR, so fail. 
SSTATE (ST_NODE ° 
(TPAS_DIGIT, ST_NODE_NAM2), 
(TPASTALPHA, § ST“NODE“NAM2), 
(*$° ST_NODE_NAM2), 
CTPAS_ LAMBDA, TPAS_EXTT) 
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See if the node address has an area in front. 
Format is area.adr, where area and adr are decimal. 


! 
i 
i 
' 
S$STATE (SE_NODE_AREA_Q, 


CTPRS_DECIMAL, » » »ACTSGL_NODAREA) ! Store it in case it was an area 
SSTATE (, 
(*.", ,. ACTSNUM_RNG, ! The Last number parsed was indeed an area 


NUM_RANGE (COW AREA, HIGH AREA)) i so check the range 
(TPAS_LAMBDA, TPAS_FAIC, ACTSCLRLONG,,, ACTSGL_NODAREA) ! There was no area so clear storage 


); 

SSTATE ( 
(TPAS_DECIMAL, TPAS_EXIT, ACTSNUM_RNG, ! Check the range of the node address 
NUM_RANGE (COW_NODE_ADR, AIGH.NODE_ADR)) 


a ey 


M 
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' 
; Check range of node area number 


MACRO SEM_AREA_NUM = 

SSTATE (SE_AREA_NUM, 
(TPAS_DECIMAL, TPAS_EXIT, ACTSNUM_RNG, , , 
NUM_RANGE (COW_AREA, HIGH"AREA)S, 
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MACRO 
SSTATE 


$STATE 


SSTATE 
SSTATE 


SSTATE 
SSTATE 


SSTATE 
SSTATE 


SSTATE 
SSTATE 


SSTATE 
SSTATE 


SSTATE 


Subexpression to accept NI address of the form nn-nn=nn-nn=nn=nn 
and since we're really nice, as a bonus we'll take nnannnnnnnnnn. 


SEM_NI_ADR = 


(SE_NI_ADR 
((SE_NT_ADDR), TPAS_EXIT), 
((SE“NI“NUM), TPAS_EXIT) 


Only accepts nn=nn=-nn=nn=-nn-nn 


(SE_NI_ADDR, 
CTPRS_CARBDA, » ACTSBLNK_SIG) 


( 
(€SE_NUM_PAIR))); 
(f-") 

); 


C, 
((SE_NUM_PAIR))); 


se 
a 
a 
~ 


SE_NUM_PAIR))); 


-— es 
' 
- 
~ 


SE_NUM_PAIR))); 


-~ AS 
o 
coo 
~ 


SE_NUM_PAIR))); 


~') 


-— -, 


SE_NUM_PAIR), TPAS_EXIT, ACTSBLNK_NSIG), 
PAS_LARBDA, fPAS_FAIL, ACTSBLNK_NSIG) 


Ae te et te te te bt ee ~~ eee ~~ 


Se 


Accept two Hex digits 


N 3 
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' 
$STATE 
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(OSE HER biett)) 
(TPAS_LAMBDA, SE_PAIR_FAIL)); 
SSTATE ( ! 2nd Hex digit 
((SE_HEX_ DIGIT), TPAS_EXIT) 
(TPAS_LAMBDA, SE_PAIRTFAIL)S; 
SSTATE (SE_PAIR_FAIL, 
(TPAS_LAMBDA, TPAS_FAIL, ACTSBLNK_NSIG)); 


NCPLIBRY.B32; 1 
i 
SSTATE (SEN 

(CSE NAY “DiGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE ( 

(€SE_HEX_DIGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE 

((SE_HEX_DIGIT)) 
SSTATE ( 

((SE_HEX_DIGIT)) 
SSTATE (, 

((SE_HEX_DIGIT)) 
SSTATE 


SSTATE (, 
((SE_HEX_DIGIT), 


SSTATE (SE_KEX DIGIT 


: Accept a twelve digit hex number 


) 
) 
) 
) 
); 
) 
) 
) 
) 
) 


(, 
((SE_HEX_DIGIT)) ) 


12th hex di 
TPAS exit, ACTSSUNK. 


it 
$1G) 


' Accept valid hex digit 
EXIT), 


4 
16-SEP-1984 17:00:08.64 Page 37 


4 
NCPLIBRY.B32;1 16-SEP-1984 17:00:06.64 Page 38 


MACRO 
SSTATE 


SSTATE 


Subexpression for Link ID 


(This subexoressi90.f restricts the Link ID to be ; number within 
the range However, the NADR entity is used to store 
the Link ID because the format is otgi tiers format ayte of zero, 
followed by the word Link address. The format oye s used to 
enable requests of known Links; format byte of - 


SEM_LINK_ID = 
(SE_LINK_ID, 
(TPAS_LAMBDA,, ACTSCLRLONG,,, ACTSGL _ADR_Q)); 


(fpas DECIMAL, TPAS _EXIT, ACTSNUM_RNG, TRUE, ACTSGL_ADR_Q, 
UMTRANGE (0, 65535))): 


ee | 
2 EEE 


4 
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SSTATE 


SSTATE 


Hex Password for Service Operations 


SEM_HEX_PSW = 


(SE_HEX_PSW 
( (SE_HEX_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_HEX_PSW)); 
(SE_HEX_S 
(TPAS EE RMBDA, . ACTSBLNK_SIG)); 
( 
((SE_HEX_CHR)) ! Ensure at least one character given 
(TPAS_LAMBDA, TPAS_FAIL, * ACTSBLNK _NSIG)); 
(SE_HEX 
((SE When STARS SE_HEX_STR1), ! Gobble gfepeining hex characters 
((SEHEX”NONTERM) , TPAS FAIL, ACTSBLNK_NSIG), 
(TPAS_LAMBDA, TbAS _EXTT, ACTSBLNK tNST@)) ; 
(SE_HEX_NONTERM ' Return false if terminator, else tru 
(TPRS ESCANK TPag yfAlv. i (so that blank is not gobbled by TPARSE) 
(TPAS"EOS, TPAS 
(TPAS ~[AMSDA. ai TExit)): 
(SE_HEX_CHR, ! True if valid hex char (gobbled), else false 
(TPAS_DIGIT, TPAS_EXIT), 
(*A', “TPAS_EXIT), 
("B'. TPAS-EXIT). 
("C') TPAS-EXIT), 
('D', TPASEXIT), 
("E', TPASTEXIT) 
("F') TPASTEXIT)S; 
x 


F 4 
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Page 40 
: Hex Number 
MACRO  SEM_HEX_NUM = 
SSTATE (SE_HEX_NUM 
( (SE_HEX_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN HEX_NUM)); 
(SE_HEX_STR 
(TPAS_LAMBDA, , ACTSBLNK_SIG)); 
( 
((SE_HEX_CHR)) ! Ensure at least one character given 
(TPAS_LAMBDA, TPAS_FAIL, ACTSBLNK_NSIG)); 
(SE_HEX_STR1 
((SE_HER_CHRS, SE_HEX_STR1), _! Gobble remaining hex characters 
((SE-HEX"NONTERM) , TPAS_FAIL, ACTSBLNK_NSIG), 
(TPAS_LAMBDA, TPAS_EXIT, ACTSBLNK_NSIG)); 
(SE_HEX_NONTERM !' Return false if terminator, else true 
(TPAS_BCANK,TPA$ FAIL), | (so that blank is not gobbled by TPARSE) 
(TPAS-EOS, TPAS_FRIL) 
(TPAS-LAMBDA, TPAS_EXIT)); 
(SE_HEX_CHR, ! True if valid hex char (gobbled), else false 
(TPAS_DIGIT, TPAS_EXIT), 
(*A', “TPAS_EXIT), 
("B': TPASEXIT), 
("C*> TPASEXIT), 
('D'; TPASEXIT). 
("E*> TPASEXIT) 
('F*', TPASTEXIT)S; 
x 


4 
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Subexpression for a circuit name 


SEM_CIRC_ID = 

(SE_CIRC_ID, 

(CSE. LINE), TPAS_EXIT, ACTSSTR_LEN, , , LEN_CIRC_ID) 
i; 

Subexpression for a DTE call number 


SEM_OTE_NUMBER = 


(SE_DTE_NUMBER 
(TPAS_STRING, TPAS_EXIT, ACTSSTR_LEN,,, LEN_DTE_NUM) 


i; 
Subexpression for a closed user group name 


SEM_GRP_NAME = 


(SE _G 
PRS. SYMBOL: TPAS_EXIT, ACTSSTR_LEN,,, LEN_GRP_NAME) 


i; 
Subexpression for an X.25 network name 


MACRO SEM_NET_NAME = 


SSTATE (SE_NET_NAME, 
(TPRS_SYMBOL., TPAS_EXIT, ACTSSTR_LEN,., LEN_NET_NAME) 


Subexpression for an X.25 destination name 


MACRO SEM_DEST_NAME = 
SSTATE (SE_DEST_NAME, 
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(TPAS_SYMBOL, TPAS_EXIT, ACTSSTRILEN,,, LEN_DEST_NAME) 


MACRO 
SSTATE 


SSTATE 


SSTATE 


SSTATE 
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Subexpression for a subaddress range of the form: 

number 

number -number 

SEM_SUBADR_RANGE = 

(SE_SUBADR_RANGE, 

(TPAS _DECIAAL,, ACTSNUM RNG,, ACTSGL_SAD_BEGIN, 
NUM_RANGE (0, 9999)55; 

( 

(TPAS_LAMBDA,, ACTSCOPY_VALUE,,, ACTSGL_SAD_END)); 

ee: 

(TPAS’ LAMBDA, TPAS_EXIT)); 


(HPAS -DECIMAL , zipas 13 ACTSNUR _RNG,, ACTSGL_SAD_END, 
NUM_R 9$99)) 


%; 
Subexpression for a channels List range of the form: 


number 

number, number 

number-number 

numberC-number(,..., numberC-number))) 


NOTE: values in channels Lists have Limit of 4095 


SEM_RNG_LIST = 


(SE_RNG_L 
(TPAS NDECIAAL,, ACTSNUM_RNGSAV,,, NUM_RANGE (0, 4095)) 


E_RNG_ List ACTSNUM_SAV), 
E-RNG_HYPHEN) , 
ARBDA; 1PAS EXIT); 


RNG_HYPHEN, 
PA$_DECIMAL,, ACTSNUM_RNGSAV,,, NUM_RANGE (0, 4095)), 
PAS_LAMBDA, TPA$_EXITY); 


S 
S 
mF 


wUie 
Ree 
"abi 


= wR “—-n 
zm 


SE_RNG_LIST), 
rbA $_ LAMBDA; TPAS_EXIT) 


~~ re Ce Ce te te on 


— - 


oe) 
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Subexpression for a tracepoint name 


SEM_TRCPNT_NAME = 


(SE_TRCPNT_NAME 
((SE_FILE_TD), fPAS_EXIT, ACTSSTR_LEN, , , LEN_TRCPNT_NAME) 


o 


1 


4 
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‘ 

; 

; 

i 

i 
MACRO 
SSTATE 


SSTATE 


SSTATE 


SSTATE 


Subexpression for a Line ID 
Allow any string terminated with a blank 


SEM_LINE_ID = 


(SE LINE ID, 
:. ( (SE_LINE), TPAS_EXIT, ACTSSTR_LEN, , , LEN_LINE_ID) 


(SE " 
(TPR _LAMBDA, » ACTSBLNK_SIG) 


> SE-LINECHA 
I 

EC 

diel E 

NE CHAR 

A, TPAS. EXIT, ACTSBLNK_NSIG) 


Re al i te teh te i ~ 
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Subexpression for the ALL parameter 


MACRO 
SEM_ALL = 


SSTATE (SE_ALL, 
act ) ! If the word is here it must be Last on the Line 


SSTATE ( 
(fPAS_EOS, IPAS_EXIT, ACTSSAVPRM, , , PBK$G_VRB_ALL) 


N 4 
NCPLIBRY .B32;1 16-SEP-1984 17:00:06.64 Page 48 


: Subexpression for Access Control Information 
MACRO SEM_ACCESS = 


SSTATE (SE_ACC_ACC 
(SE_QOOT_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_ACC) 


SSTATE (SE_ACC_PSW 
(SE_QO0T_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_PSW) 


SSTATE a ACC 


USR 
SE_Q00T_STR), TPAS_EXIT, ACTSSTR_LEN, , , LEN_ACC_USR) 
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; Subexpression for a quoted string 


MACRO SEM_QUOT_STR = 
SSTATE (3 QUOT STR, 
TPAS_EOS, 


£0 TPAS_FAIL) : Got to be songth ing 
(IPAS “BLANK, =, ACT SBLNK _S1G), ! Make blanks significant 
STPAS LAMBDA, ° CTS$BLNK_SIG) 
SSTATE (, ! Quoted string or just string 
(Fore ST_QUOT_STR3), 
CTPAS_LAMBDA) 
SSTATE (ST_QUOT_STR2, ! Just a string 


(TPAS_SYMBOL, ST_QUOT ~$1Ré). 
(TPAS_BLANK, ST~QUOT"STRX) 


(TPAS_ANY ST" QUOT “STR2), 
STPAS J EO s. ST~QUOT"STRX) 


SSTATE (ST_QUOT_STR3, ! A quoted string to be sure 
(SE _Qu6T DBL), ST_QUOT_STR3), 
_ "ST _GuoT _STRX), 
PA$_ANY, ST~QUOT “BTR3). 
TPAS_ “E0S, ST~QUOT_STRE) 


T_QUOT_STRX, 
PAS_LAMBDA, TPAS_EXIT, ACTSBLNK_NSIG) 


UOT_STRE, 
3 LARBDAS TPAS_FAIL, ACTSBLNK_NSIG) 


faU0T_DL. ! Do we have a double quote 


MACRO 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 
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Event List subexpression 


SEM_EVENT_LIST = 


(See VENT LIST, 
LAMBDA, , ACTSBLNK_SIG) 


( 
( (SE_EVENT), TPAS_EXIT, ACTSBLNK_NSIG), 
(TPAS_ “LAMBDA, TPAS_ “FAIL, ACTSBLNK_NSIG) 


Parse a single event 


tens VBE CIMAL, -ACTSNUM RNG, 
RANGE (LOW_EVENT_CLS, HIGH_EVENT_CLS) ), 


om 


T_EVENT_1, 
(SE _EVERT. TYP), , ACTSSAVPRM PBK$G_EVE_EMSK) 
"e’ “TPAS_EXIT, ACTSSAVPRM, 2°(14+8), PDBSG _VRB_EVE. PBKSG EVE_EWLD) 


NCI 
Tal 


SSTATE 


SSTATE 
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ST EVENT 2, 
ASE EVERT. TYP), , ACTSSAVPRM, , , PBKSG_EVE_ERNG) 


ST_EVENT_1), 
BLANK TEAS EXIT), 
“EOS, fPAS_ERIT) 


ll ae 
os 

vv 

>Pr- 


Known events 


yTAMBD A. Ou bAS _EXIT, ACTSSAVPRM, 3°(1448), PDBS$G_VRB_EVE, 
PBKSG_EVE_EWLD) 


E EVE 
PRS VDECTMAL, was EXIT ACTSNUM_R 
ANGE (LOW_ EVENT. “.’ HIGH_EVENT_TYP) ) 


NCI 
vO: 


MACRO 


SSTATE 


MACRO 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 
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Logging type 


SEM_LOG_TYP = 
(SE_LOG_TYP, 
KEYWORD_STATE 
(LOG, 


Typ OLE’, 
TY YPMON: MONITOR", 
); 
%; 


Subexpression for Object ID 


SEM_OBJECT_ID = 
(SE OBJECT 


((SE OOBIECT. Rin). TPAS_EXIT), 
((SE “OBJECT-NUM), TPA$ EXIT) 


(SE _0BJ CNOM) “TPAS_EXIT, , TRUE, ACTSGL_ADR_Q) 


E_OBJ_NUM NUM, 
PAS_LAMBDA, , ACTSCLRLONG, , , ACTSGL_ADR_Q) 


om nm 


TPAS_EXIT, ACTSNUM_RNG 


PAS_DECIMA 
=f RANGE (COW_OBJ_NUM, HTGH_68j_NUM)) 


SE_ OBJECT 
TPAS_ vANBDA ; ACTSCLRLONG, , , ACTSGL _ADR_Q) 


-—<~ 


IPAS SYMBOL, TPAS_EXIT, ACTSSTR_LEN, , , LEN_OBJ_NAM) 


Pe ce de te ee te ee ee ee 
—. « 


5 
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; Subexpressions for a query state 


SEM_QUERY = 


SSTATE (SE CRY_YES, 
(*YES")> 


F 
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SSTATE 


SSTATE 
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—_—-_ A - , 
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Subexpressions for load parameters 


SEM_LOAD (CLS) = 


Subexpression for service device 


(ZNAME ('ST_",CLS,"_SDV"), 
KEYWORD_ STATE 
(CL 


1D 
T_STR), TPAS_EXIT, AC®SSTR_LEN, , , LEN_SOFT_ID) 


Software type 


(ZNAME ("ST_*,CLS,*_STY"), 
DISPATCH_STATES 

(CLS, 

STSL, "SECONDARY’, 


STIL, ‘TERTIARY’, 
STOS, “SYSTEM, 


H 5 
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SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


SSTATE 


) 
): 


(ZNAME ("ST_*, CLS, ‘_PRC_STSL'), ! Secondary loader 
( "LOADER' J 

(TPAS_LAMBDAS 

(, 

(ZNAME ('ST_",CLS,"_STSL") ), TPAS_EXIT) 

(ZNAME (‘ST_*, CLS, ‘_PRC_STIL"), ! Tertiary loader 
( *LOADER' J 

(TPAS_LAMBDAS 

(, 

(ZNAME ('ST_",CLS,"_STTL") ), TPAS_EXIT) 

(ZNAME ('ST_*", CLS, ‘_PRC_STOS') ! System 

(ZNAME (°ST_",CLS,*7STOS*) ), TPAS_EXIT) 

SUB_EXPRESSIONS 

(CLS, 


STSL, TPAS_LAMBDA, 
STIL. TPAS-LAMBDA, 
STOS. TPAS"LAMBDA 


) 


Cpu type 


(RNAME (*ST_*,CLS,*_CPU"), 
KEYWORD_STATE 

(CLS, 

cPul 
CPUt 
CPU8 
VAX, *VAK', 


) 
); 


0, ‘DECSYSTEM1020', 
1, ‘PDP11° 


ee 
a 


v6 
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TEND 
‘ELUDOM 
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